home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.06 Jun 90 / PinUpMenu LSP / XCMDUtils.PUM < prev   
Encoding:
Text File  |  1989-07-29  |  939 b   |  61 lines  |  [TEXT/PJMM]
  1. unit XCMDUtils;
  2.  
  3. interface
  4.  
  5.     uses
  6.         XCMDIntf;
  7.  
  8.     type
  9.         Str31 = string[31];
  10.  
  11.     function PasToZero (paramPtr: XCmdPtr;
  12.                                     str: Str255): Handle;
  13.  
  14.     procedure ZeroToPas (paramPtr: XCmdPtr;
  15.                                     zeroStr: Ptr;
  16.                                     var pasStr: Str255);
  17.  
  18.     procedure SendCardMessage (paramPtr: XCmdPtr;
  19.                                     msg: Str255);
  20.  
  21. implementation
  22.  
  23.     procedure DoJsr (addr: ProcPtr);
  24.     inline
  25.         $205F, $4E90;
  26.  
  27.     procedure SendCardMessage;
  28.     begin
  29.         with paramPtr^ do
  30.             begin
  31.                 inArgs[1] := ORD(@msg);
  32.                 request := xreqSendCardMessage;
  33.                 DoJsr(entryPoint);
  34.             end;
  35.     end;
  36.  
  37.     function PasToZero;
  38.     begin
  39.         with paramPtr^ do
  40.             begin
  41.                 inArgs[1] := ORD(@str);
  42.                 request := xreqPasToZero;
  43.                 DoJsr(entryPoint);
  44.                 PasToZero := Handle(outArgs[1]);
  45.             end;
  46.     end;
  47.  
  48.  
  49.     procedure ZeroToPas;
  50.     begin
  51.         with paramPtr^ do
  52.             begin
  53.                 inArgs[1] := ORD(zeroStr);
  54.                 inArgs[2] := ORD(@pasStr);
  55.                 request := xreqZeroToPas;
  56.                 DoJsr(entryPoint);
  57.             end;
  58.     end;
  59.  
  60.  
  61. end.